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MODULE MAKACC ( PAIS SMBS 


1 ie COPYRIGHT < 1978, 4 11382. Bia 

ie OIG! TAL guiPREN MASSACHUSETTS. 

je ALL ALL R $ — Conponh e 
1 ie THIS SOFT D UNDER A LICENSE ue may OPIED 
1 y ie Seton Sine "IGENSE —** WITH THE 
1 ¢ ie Faig ge rice NOT IC ri ay ANY OTHER 
1 ie Opies rinOt Be twe att DE AVATLAB E TO AN 
1 if is 9 THER PERSON. "Mr ITLE 0 AND DUNERSHIP "ore HEREBY 
: * nf 
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te THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
te AND poe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
te CORPORATION. 
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5 025 1 Ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
d0¢6 | is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
00 
DC 3 — 
* 
—* ‘ee 
dC i FACILITY: FIIACP Structure Level 1 

5 D035 1 | ABSTRACT: 


— 


++ 


This routine makes the necessary hookups in the 1/0 database to 


: reflect a new file access. 
46 D0 0 ! ENVIRONMENT: 
4 DC STARLET operating system, including privileged system services 
$§ DC § nternal exer rout nes. This rout ine aust bec alled 
& D0 n kernel mode. 
&% 0044 
45 OC 5 Sen 
8* —383 
00 ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 17:28 


i MODIFIED BY: 
v03-004 CDS0003 Christian D. Saether —— — 


SSO 
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+ 
§ ite Bump REFCNT in Fb. Do not bump other ¢ if 
; DC $ this is NOACCLOCK. Remove reference to “old. dirteb index. 
$ it vO3-003 cos0002 Christian D ther  —-2=Mar-1984 
0 Set WRITE_TURN flag in WCB in inde: tile, storage bitmap, 
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iS-seo-t9me 00:42:55 yarTT euisecdz veOn7e2 Page OT 
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or a directory is being write accessed. 


v03-002 ($0001 Christian 30-Dec-1983 
Use L_NORM Linkage and 61 nD. — macro 
v03-001 mPOOS9 Mark Pilent, — 
insert the ‘FB into the queue as it is done when the 
CB is created. 
v02-002 26 ti Mark Pilant, 20-Nov-1981 9:30 
++ 14 that —. l the segments to a window get inserted into 
window 
v02-001 ACG0167 Andrew C. Goldstein ae “1980 19:26 


Previous revision history moved to F118. 
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GLOBAL ROUTINE MAKE_ACCESS (FCB, WINDOW, ABD) : L_NORM NOVALUE = 


FUNCTIONAL DESCRIPTION: 


This routine mehes the necessary hookups in the 1/0 database to 
reflect a new file access. 


eh RAKE witiits (ARG1, ARG2, ARGS) 


! INPUT pees rane 
Ane: address of FCB to a 


ARG2: address of window to | 
ARGS: address of buffer dover ipters 
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N Vie: VCB of volume in process 
i OUTPUT PARAMETERS: 
NONE 


= 


ee ee ee 


. ++ 


i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
VCB transaction count bumped, access counts in FCB adjusted, 
FCB and window hooked up. 


5 
FCB : ner BBLOCK, ! FCB a a 
WINDOW : REF BBLOCK i window aie 
ABD : REF BBLOCKVECTOR C ABDS NGTH); 
' buffer —vJ arg 


LOCAL 
WINDOW SEGMENT : REF BBLOCK; ! address of the current window segment 


BIND_ COMMON; 
EXTERNAL 


SOBVAARUN=SSSLESFANLS SE 
VERRENTS See AREAS ARAN LESEASLESSLSAPANESS 


PMSSGL_OPEN : ADDRESSING_MODE (ABSOLUTE), 

exstes, co count of currently open files 

PMSS$GL_OPENS : ADDRESSING _nove (ABSOLUTE 
! system ntl of files opened 


!' Now hook the window onto the FCB end adjust the access counts 
: according to the access control bits in the window. 


win 
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WINDOW. SEGMENT = .WINDOW; 
PRSQUE (Wl SEGMENT, .FCBCFC WLBLI); 
¥INDOW.SEGREN = WINDOW SE wifetest tinca; 
UNTIL .WINDOW SEGMENT EQL 0; 
FCB CFCBSW_REFCNT) = .FCB CFCBSW_REFCNT] + 1; |! bump reference count 
ca «WINDOW CWCBSV_NOACCLOCK] 
BEGIN 
FCBCFCBSW_ACNT] = .FCBCFCBSW_ACNT]) + 1; ! bump access count 


F .WINDOWLWCBSV_NOREAD 
HEN Peper cesy EXCL) = i; 


IF <#INpOwt wcasy NOWRITEJ 
THEN FCBCFCBSW_LONT) = .FCBCFCBSW_LCNT) + 1; ! no writers 


if -WINDOWCLWCBSV_NOTRUNC) 
HEN FCBCFCBSW_TCNT) = .FCBCFCBSW_TCNT] + 1; ! no truncates 


| 


! set exclusive access 


FEVESSSLIGF NS Saab owe 


! For a write access the writer count. If this is the 
first write, and the file is the index file or the storage map, set 
i 


o 
uw“ 


the appropriate flag in the vCB. 
i ,VINDOUCUCESY _URITES 

BEGIN 

IF .FCB CFCBSB_FID_NMX) EQL 0 

THEN 
BEGIN 
If .FCBCFCBSW_FID_NUM) EQ. 1 
THEN 


BEGIN 
CURRENT _VCBCVCBSV_WRITE IF] = 1; 
—5 CwCB$V_WRITE_TURA) = 1; 


If .FCBCFCBSW_FID_NUM) EQL 2 
THEN 
BEGIN 
CURRENT yee vcesy WRITE SM) = 1; 
WINDOW TWCBSV_WRITE_TURA) = 1; 
END; 
END; 
If .FCBCFCBSV_DIR) 
THEN 
BEGIN 
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6-Sep-1 VAX=11 Bliss-32_V4.0-742 P 
1foseo-t944 19:38:32 DTSeSUMOMASTERSCI TixssRCJmaKAcc.B32:1°%° (2). 
3 1 5 3 
— car fRood boc ie? } — if Cat cot. DIRSEQ) + 1; | 
; 185 : 
; F at .WINDOW CWCBSV_NOACCLOCK) | : 
; 1 FCBLFCBSW_WCNT) = .FCBCFCBSW_WCNT) + 1; : 
; 1 END; : 
; 11 § ' Count the access in the volume transaction count and return ; 
; 1136 : the window address for the user's CCB. | : 
; 1195 2. : 
3 1199 —* SSGL_OPE -PMSSGL_OPEN + ' — open file count + 
: 119 PMS$GL~ OPEN PaSSec NS + of ns ; 
3 1198 CURRENT. Ore ath TRANS). = * _wewtvebeerraaned ° "es ; 
3; (31 1 ABDC ABDSC WINDOW, ABDSW_COUNT ' enable write-back ; 
: 1 1 -ABDCABDSC_WINDOW, ABDSO_TEXT ; RavcaBosc _WINDOW, ABDSW_TEXT] + 1 = .WINDOW; ; 
; i ! ¢ ! But window address in bitter text : 
5 1g ! : H Mark the access complete in the cleanup action flags. ; 
; i 1 = : 
3 18 i CLEANUP_FLAGSCCLF_DEACCESS) = 1; : 
; 220 1 END; ! end of routine MAKE_ACCESS | 3 
.TITLE MAKACC : 
SIDENT \Vv04=000\ 
.EXTRN PMSSGL_OPEN, PMSSGL_OPENS 3 
.PSECT S$CODES,NOWRT,2 3 
.ENTRY MAKE gfccess Save nothing : 1068 ; 
51 08 AC D MOVL WINDOW, WINDOW SEGMENT ; 1126 : 
0 AC D 1$: MOVL + 1129 3 
14 e 61 INSQUE OW SEGMENT), @20(RO ; : 
1 20 Al OD MOVL ogee SEGMENT), VINDOW. SEGMENT : 1130 : 
F2 1 1 BNEQ > 1132 : 
50 04 ac D 1 MOVL : 11 
50 OB AC pO O00I8 hove — 11536 
37 46 90 03 £0 OOOIF BBS We. 20nd). | 
5 4 At D 1024 MOVL 3 1140 | 
A A 028 INCW —38 | 
5 08 aC DO 00028 MOVL Hee ; 1142 | 
08 5 A 02 £1 O00¢F BBC (RO) : 
5 “0 OC MOVL 3 1143 | 
22 =A 0 DC BISB2 6. FO oy ; 
ae core ied 
0 4 ac D 0044 move FCB, RO 3 1146 | 
—E Ad B86 00048 INCW (RO) : 


ae er ee ee 


; Routine Size: 237 bytes, Routine Base: S$CODE$ + 9000 


MAKA 8 -1 1:42:55 VAX-11 Bliss-32 V4.0-742 Pp MAK 
104-050 mets rah eT PM Se td ot at aS v04 
5 08 4 MOVL WINDOW, RO : 1148 
07 1S A 08 e} C #4 My tRO). 4$ : “i 
5 ac ¢6 RO + 1149 
5 4. OC ho) RO + 1158. 
SC 0B A Of BBC Hi Miabſ. 8$ : 
5 ee mOvL Fé : 1161 
9 A TST 41(R0) : 
30 1 BNEQ $ : 
01 26 A 8 CMP GRO), rt + 1164 | 
5 98 AA MOVL =104 (As », RO : 1167) 
wet 0B ke Ra 44 ke 1168 
16 A b BISB2 #16, 34 Ro) : 
3 04 AC D MOVL FCB, RO + 1171 
5 2 e CMPW 3560)42 : 
1 BNEQ 86 ; 
5 98 AA p MOVL ——B RO + 117% 
0B A 02 BISB2 #2, 11(RO) : 
5 08 AC MOVL WINDOW RO + 1175 
15 A 1 BISB2 #16, 21(RO) : 
5 04 AC D MOVL : 1179 
08 AO € BLBC 34(RO), 7$ : 
42 Ad B INCW  66(RO) : 118 
50 0 ac MOVL WINDOW, RO : 118 
15 Ad 1 BISB2 #16, 21(RO) ; ; R 
5 08 AC D MOVL WINDOW, RO + 1186 
07 14 A0 02 € BBS #2, 20(RO), 8$ : 
5 04 aC D MOVL FCB, R : 1188 
if AO 86 INCW  28(RO) : 
9000000 G OF D6 INCL  @#PMS$GL_OPEN + 1196 
00000006 OF D6 INCL  @#PMS$GL~OPENS + 1197 
50 98 AA D MOVL  -104(BASE), RO + 1198 
0 AO BG INCW —- 12 (RO) ; 
50 E> a6 MOVL RO + 1200 
02 A 4 80 MOVW #4, 2(RO) ; 
3 c it MOVZWL @ABD, RO : 1201 
¢ ac ¢ ADDL2 D, RO : 
01 A C MOVL WINDOW, 1(RO) ; 
2 AA 1 BISB2 #1, 2(BASE) : 1207 
RET + 1209 
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PSECT SUMMARY 


if: sep 1944 9: 46: 32 TScdinQaas fens ch 41% See amaxace.032:1°% (25 


; Name Bytes Attributes 
SCODES 237 WNOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


* 


Library Statistics 


: * Syndobs Pages Processing 

; File Total Loaded Percent Mapped Time 

i _$255$DUA28:(SYSLIBILI8.L32;1 18619 42 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=L1S$:MAKACC/OBJ=OBJ$:MAKACC MSRC$:MAKACC/UPDATE=(ENHS:MAKACC) 


+ 0 data bytes 
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